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T1111 000000 LL 000000 cccccccc KK KK 
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I] 00 0O LL 00 oo cc K KK 

I] oO LL 00 oo CC KKKKKK 

I] 00 oO LL 00 oo CC KKKKKK 

I] 00 OO ul 00 oo CC K KK 

II 00 OO LL 00 oo cC KK KK 

Il 00 0O LL 00 oo cc KK KK cece 

I] LL 00 oo cc KK KK cece 
III! 000000 LLLLLLLLLL 000000 cccccccc KK KK eee 
III 000000 LLLLLLLLLL 000000 cccccccc =KK KK cone 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL Sat be Ly CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


F they are used as unsigned words. 

: v73-002 wMCc0001 Wayne Cardoza 17-May 

$ Fix error recovery in the DEMANDZERO path to aes the 

3 4K. reference count. 

: arr a working set entry for a transition page, revalidate 


v03-001 ree Herb Jacobs 20-Mar-1982 
d support to allow swapper to lock shell pages into system 
—. ng set, and tell whether any need to be read. 


4; 
5; * 
8 7* ® 
3* & 
9 is ; 
:* 2 
8 10 ;* THIS SOFTWARE IS cent aee UNDER A LICENSE AND MAY BE USED AND orice * 
0 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
1 37* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TARE OR ANY OTHER * 
13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$8 13 3* TRANSFERRED. e 
3* ® 
100 i3 7* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
309 18 7* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 98 13 i CORPORATION. ‘ 
9009 1 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
9008 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
® 
$000 4 je * 
0000 5 FARRAR RARER AAA AAA AAA AAAR AAA RARE AAAAAAAAAAKAAAARARAAARAAKeReeReeeAeeeees 
$335 ae 
0000 3 : FACILITY: EXECUTIVE, MEMORY MANAGEMENT SUBROUTINES 
0000 0 : ABSTRACT: THIS MODULE PROVIDES THE ROUTINE FOR QI1/0 TO LOCK DOWN 
0000 13 THE PAGES BEING TRANSFERRED AND THE ROUTINE REQUIRED BY THE 1/0 
4 ¢ : COMPLETION LOGIC TO UNLOCK THOSE PAGES. 
0000 4 : ENVIROMMENT: KERNEL MODE 
445 5S 3 
$0 7 
909 s 5; .SBTTL HISTORY : DETAILED 
9000 40 ; AJTHOR: PETER H. LIPMAN , CREATION DATE: 17-SEP-76 
009 | ; MODIFIED BY: 
09 44; v03-003 TEROOOT Trudy C. Matthews 31-Mar-1983 
a2 ; Change references to working set fields in PHD so that 
‘ 
2 
. 
z 3 
é . 
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v0212 pacer Peter H. Lipm 15-May-1981 
pe fe wet try to a ogjust working set if System Space transfer. 
Fix in zero ng arenes space p age. 
Shute ° f DZRO section b f zeroing. section page. 
vO211 HRJO020 Herb Jacobs 27-Apr-1981 
Change references to PAbSW -WSSIZE to get working set size. 
vO210 R1HO060 RICHARD I. HUSTVEDT 3-MAR-1980 
ai ttme. TO INCREASE WORKING SET BEFORE GIVING SS$_INSFWSL ERROR 
v0209 DM0023 KATHLEEN D. MORSE 10-APR-1979 09:20 
COMBINE LOGIC AT "FAULTREQUIRED'’ WITH *MMGSUNLOCK1"'. 
v0208 DMO022 KATHLEEN D. MORSE 04-APR-1979 15:15 


FIX BUG IN COMPUTING NUMBER OF PAGE TABLES TO LOCK. 


vO207 $RB0001 STEVE BECKHARDT inn pee ie 15:00 
CHANGED sore oe TO MMGSIOLOCK AND see Ya 
TO ALLOW FOR I/0 DEVICES THAT READ AND W URITE. MEMORY THE 
CHANGE ALLOWS THE rote TO INHIBIT AN OPTIMIZATION IN 
MMGSIOLOCKPAG. NOTE THAT THIS CHANGE DOES NOT CHANGE ANY 
CODE, ONLY THE INTERFACES. THE CODE WORKS AS IS. 


vO206 KDMO0001 THLEEN D. MORSE 14-NOV-1978 09:15 
REMOVE RESTRICTION OF 128 PAGES FROM MMGSIOLOCK AND 
MMGSUNLOCK. 
v0O210 KDM0037 ATHLEEN D. MORSE 12-JUN-1979 14:10 
DECREMENT SEC TION HH ERENCE COUNT FOR CRF PAGES THAT ARE FAULTED 
IN FOR AN I/0 TRANSACTION. 


01 - 
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UNLOCK PAGES FOR 1/0 16-SEP-1984 00:19:38 VAX/VMS Macro V04-00 
NS green 4 80:13:73 Leys SRCJTOLOCK MARS 1 
.SBTTL DECLARATIONS 
; INCLUDE FILES: 
: SIPLDEF ;PRIORITY LEVEL DEFINITIONS 
PCBDEF SPROCESS CONTROL BLOCK DEFINITIONS 
SPFNDEF [PFN DATA BASE DEFINITIONS 
SPHDDEF :PROCESS HEADER DEFINITIONS 
PRDEF ‘PROCESSOR REGISTER DEFINITIONS 
PTEDEF [PAGE TABLE ENTRY DEF INTIONS 
SSSDEF :SYSTEM STATUS DEFINITIONS 
SVADEF ‘VIRTUAL ADDRESS VIELDS 
SWSLDEF [WORKING SET LIST DEFINITIONS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


; EXTERNAL SYMBOLS: 
; MACROS: 
; EQUATED SYMBOLS: 


OWN STORAGE: 


REAR R ARATE TATE AAA AAA A AAA TATA AA AAT AAA AAA AAT eee eee 
eeeeeeeereeeeeee THIS ENTIRE MODULE MUST BE RESIDENT teexeeeneeenerane 
-PSECT SMMGCOD 


LAR RRRARASARSAARARARLASASLAAREALESESRASSEARRRER ALAS ARR SASSER SERS RRR RASS EG 


AND 
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DNASE WN SO ODNA UE WN OS OO NAME WW OS OOO NAN E WW 0 OD NAUSEA OOONOM 


a a ee hd 
C909 0909 G9 0D G9 G9 00 SIN NSD DDD DDD DDD TTT BB BS BB EE EIN 
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ooooo 
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LOCK PAGES FOR 1/0 16-SEP-1984 00:19:3 AX/VMS Macro V04-00 
873Eb=] $8c 89:03:49 USYSSRCIIOLOCK. MAR; 1 
ee 
; FUNCTIONAL DESCRIPTION: 
IOLOCK ACCEPTS A VIRTUAL ADDRESS AND BYTE COUNT OF AN I/O BUFFER 
AND A DIRECTION OF TRANSFER INDICATOR. THE SPECIFIED PAGES 
ane MADE RESIDENT AND MARKED MODIFIED IF APPROPRIATE, AND THEN 
THEY ARE LOCKED INTO MEMORY BY INCREMENTING THEIR REFERENCE COUNTS. 


CALLING SEQUENCE: 
BSBW MMG$IOLOCK 


INPUT PARAMETERS: 


RO = VIRTUAL ADDRESS OF BEGINNING OF BUFFER 
Ri = SIZE OF BUFFER IN BYTES 
R2 = TRANSFER DIRECTION INDICATOR 
Q = WRITE OUT OF MEMORY TO I/0 DEVICE 
1 = READ INTO MEMORY FROM I/O DEVICE 
5 = 1/0 DEVICE READS AND WRITES MEMORY 
R4 = CURRENT PROCESS PCB ADDRESS 


IPL MUST BE AT ASTDEL 
IMPLICIT INPUTS: 
NONE 
QUTPUT PARAMETERS: 
IF SUCCESSFUL 
RO = #SS$_NORMAL (LOW BIT SET) 
R1 = SYSTEM VIRTUAL ADDRESS OF FIRST PAGE TABLE ENTRY 
IF NOT sw hee 
R1 = VIRTUAL ADDRESS TO FAULT AND TRY AGAIN 
RO = SYSTEM STATUS CODE (LOW BIT CLEAR) 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SSS_INSFWSL cs INSUFICIENT WORKING SET LIMIT 
SIDE EFFECTS: 
NONE 


OR 
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ND UNLOCK PAGES FOR 1/0 16-SEP-1984 00:19:38 VAX/VMS Macro V04-00 Page 
TI ety fi 90:13:78 ¥S.SRCJIOLOCK.MAR; 1 . 3) 
190 MMGSIOLOCK:: 
191 -ENABL LSB 
O1FO 8F 22 198 PUSHR PMCRG, RS,R6,R7,RB> 
, & 6 4 19 MOVL  R2,R7 :DIRECTION INDICATOR 
56 CSO Csi FF 07 194 EXTZV #VASV_BYTE,#VASS_BYTE,RO.R6 ;STARTING BYTE IN PAGE 
0 3 OC 195 BNEQ 19s 'BRANCH IF PARTIAL PAGE 
57 C i 196 BISL #2,R7 SFIRST PAGE IS FULL PAGE 
1719 SUNLESS IT IS ALSO THE LAST 
55 _00000000'9F 09 11 198 10$:  MOVL ae Tb Sek PHD,RS :P1 SPACE ADDRESS OF PROCESS HEADER 
53. 50) S6COE 18 199 SUBL3 [R3 = PAGE ALIGNED 
52. 7041 9 01 00 MOVAB Peeo ERT, R2 ‘R2=LAST BYTE INCLUSIVE 
1A 0 1 BGEQ 308 ‘BRANCH IF PROCESS V 
50 oc g MOVZWL #SS$_ACCVIO,RO ‘STATUS CODE FOR ACCESS VIOLATION 
6153 iF €1 00 0 BBC #31,R3, [OLOCKACCVIO SENTIRE RANGE MUST BE SYSTEM SPACE 
0000'CF 52 D1 0029 204 CMPL R2,W*SWP$GL_BALBASE SAND BELOW BALANCE SET SLOTS 
SA 1E 8 F 05 BGEQU§ IOLOCKACCVIO sBRANCH IF NOT 
54  OO00'CF DE 0 06 MOVAL W*MMGSAL_SYSPCB,R4 SUSE SYSTEM PCB 
55 6C AG DO 00 5 207 MOVL CBSL_PHD(R4) ,R5 ‘AND SYSTEM PHD 
53. 02 «490 «(0039 ~«=— 208 MOVE #wS Lst_ SYSTEM.R3 iSET SYSTEM PAGE TYPE 
51 56 CO 003C 209 20$: ADDL R1 ‘BYTE COUNT + OFFSET 
56 51 #F7 BF 78 003 10 ASHL #=9,R1,R6 :PAGE COUNT NOT INCLUDING LAST 
51 OFF 8F B3 0044 1 BITW #VASM_BYTE,R1 [1S LAST PAGE A PARTIAL PAGE? 
06 13 0049 21 BEQL  30$ BRANCH IF NOT 
56 «606 6000468) 214 INCL R6 ;COUNT ONE MO ORE PAGE 
0057 iF €2 004d 215 BBSS  #31,R7,30$ SET "LAST PARTIAL PAGE’ INDICATOR 
0051 16 30$: [RETRY AFTER MAUGMENT ING WS SIZE 
7E SOAS 3C 0051 217 MOVZWL PHDSW_WSSIZE(R5),-(SP) :GET CURREN NT SIZE 
50 D4 0055 218 CLRL. oR ‘CLEAR UPPER HALF OF RO 
50 OF AS 08 AS A3 0057 219 SUBW3 PHDSW_WSLIST(R5) ,PHDSW wEDYNCRS) RO;GET FIXED PORTION OF wS 
50 8€ 50 C3 9050 20 SUBL3 RO, (SP)+, RO FIND DYNAMIC PORTION OF WS 
50 56 681 0061 221 CMPW MAKE SURE THERE IS ENOUGH FOR REQUEST 
28 SOF 0064 A BLSSU it iBRANCH IF ENOUGH 
0066 324 > NUMBER OF PAGES REQUIRED EXCEEDS THE DYNAMIC SIZE OF THE WORKING SET 
18 53 1F EO 0066 226 BBS #31,R3,31$ :NO WSL ADJUST IF SYSTEM SPACE BUFFER 
51 DD 006A 927 PUSHL SSAVE VOLATILE REGISTER 
7E SOAS 3C 6 6C 8 MOVZWL PHDSW_WSSIZE(R5),-(SP) :SAVE CURRENT WS SIZE 
00 dD 0070 09 PUSHL #0 :NO ADDRESS FOR PREVIOUS VALUE 
7E 7F BF 9A 6 72 0 MOVZBL #127,-(SP) TAUGMENT WS BY 127 PAGES 
00000000‘ EF Oe FB 0076 31 #2, EXESADUSL 'CALL INTERNAL ADJUST ROUTINE 
03 BA 0070 : POPR #*M<RO,RI> ZRESTORE SAVED WSSIZE, RI 
50 50 A5_ Bi 0 7F CMPW PHDSW _WSSIZE(R5) ,RO :ANY cH 
CC 12 0083 4 BNEQ tI1F een T AGAIN 
50 O11C BF 3C O 85 5 31$:  MOVZWL #SS$_INSFWSL,RO {INSUFFICIENT vORKiNe SET LIMIT 
eh t ACCESS VIOLATION = ATTEMPTED 1/0 REQUEST TO BALANCE SET SLOTS 
A 239 JOLOCKACCVIO: 
8 40 PUSHL :$0 THAT THE POPR WILL BE RIGHT 
8 41 LOLOCKEXIT 
1 rk 32$: ASHL #-16,R3,-(SP) :GET STARTING VA SHIFTED 
44 ASHL  #-16.R2-RO [GET ENDING VA SHIFTED (ELIM BYTE OFF) 
45 SUBL (SP)+,R6 [GET # OF PAGE TABLE PAGES BETWEEN VA'S 
46 35$: INCL RO ‘RO=COUNT OF PAGE TABLE PAGES TO LOCK 


= LOCK AND UNLOCK PAGES FOR 1/0 Ig-SEP-1984 0: 19:38 VAX X/VMS Macro V04-00 Page ¢ | 
DECLARATIONS -SEP=1984 05:43:17 (CSYS.SRCJIOLOCK.MAR; 1 (3) | 
9 BB 009D 247 PUSHR #*M<RO,R3> ;SAVE START VA AND PUSH LOOP COUNTER 
6E 01 D1 009F 48 38$: CMPL = §*#1,, (§P) :1S THIS THE FIRST PAGE TBL PAG TO LOCK? 
4 if} Ae 4 BNEQ 408 ‘BR IF NOT FIRST PAGE 
52 04 AE OD A 50 MOVL ) Re SUSE STARTING VA 
OAs 51 40S: SETIPL IPs ASTDEL [BACK TO ASTDEL IN ORDER TO FAULT PT | 
FF52" 30 OOAB 36 BSBW nnG LOCK?GTB SREFERENCE AND LOCK PAGE pias E PAGE 
AE 5 sREIURNS SVAPTE IN R3, YNCH | 
52 00010000 &F ce A 54 SUBL2 Cee »R2 [GET ADR IN NEXT PAGE TABLE SPAGE | 
E7 6 F5 00B 55 SOBGTR TLOCK ALL PAGE TABLE PAGES 
0S BA 00B8 36 POPR gnck CLEAN STACK, R2=STARTING VIRTUAL ADR 
55 6C AG DO OOBA 25 MOVL  PCBSL_ Oot Rs). RS 3NO LONGER SWAPPABLE, USE SYSTEM ADR OF 
33 DD 08 38 PUSHL :PHD AND SAVE IT FOR RETURN TO CALLER 
03 11 0c 32 BRB 55s ‘START AFTER THE ‘INC’ SVAPTE 
00¢ 61 : O(SP) = STARTING SYS VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
00¢ 6¢ ; RS = PAGE COUNT TO LOOP TH 
oC 63 : R7<O> = SET IF READING INTO RenORY 
oC 64 : R7<1> = SET IF TRANSFERRING "HE ENTIRE PAGE 
00¢ 65 ; RI <g> - SET IF 1/0 DEVICE IS READING AND WRITING MEMORY 
0c 56° > R7<31> = SET IF LAST PAGE IS PARTIAL PAGE 
04 co 00C 68 50$: ADDL #4,R3 ;NEXT PAGE TABLE og NTRY ADDRESS 
08 57 +1F €1 00C 269 55$: BBC #31,R7,60$ SBRANCH IF LAST P AGE IS A FULL PAGE 
56 D1 00C9 270 CMPL = R61 :1S THIS THE LAST PAGE? 
03 14 OOCC 371 BGTR 60$ [BRANCH IF NOT 
57 02 CA OOCE ce BICL #2,R7 S INDICATE PARTIAL PAGE 
32 10 0001 273 60$: ##BSBB  MMGSIOLOCKPAG ‘LOCK THIS PAGE FOR 1/0 
1350 €9 0003 27% BLBC  RO,FAULTREQUIRED [BRANCH IF MUST PAGE FAULT 
57 02 CB 0006 275 BISL TAFTER FIRST PAGE FULL PAGES 
52. 0200 C2 DE 0009 276 MOVAL  “*X200(R2),R2 [NEXT VIRTUAL PAGE 
E156 5 OODE 277 SOBGTR R6,50$ [ONCE FOR rin PAGE 
doe! 378 -OSABL LSB : 
oe! 80 + RO = STATUS CODE 
O0E1 282 JOLOCKEXIT: 
O1F2 8F BA OO0E1 Hf POPR #*M<R1,R4,R5,R6,R7,R8> ; RESTORE REGISTERS AND RETURN R1 
OES 384 :WIT ITH SVAPTE IF SUCCESSFUL 
00E5 286 SETIPL #IPLS$_ASTDEL ‘RETURN WITH TPL AS CALLED 
ke EE ee 
Q0E9 289 ; FAILED TO LOCK THE PAGE FOR 1/0, IT sfust BE PAGE FAULTED FIRST 
a9 30 : R3 = SVAPTE OF FIRST PAGE NOT LOCKE 
E9 292 FAULTREQUIRED: 
51 53 pO O0E9 38 MOVL  _—R3,R1 Rls SVAPTE OF PAGE NOT LOCKED 
53 BE «60 CODEC «| 29% MOVL  (SP)+,R3 =SVAPTE OF FIRST PAGE IN TRANSFER 
50 tC A146 D Ef 99 NOVA =4(R15ER6I ,RO RO=LAST SVAPTE FOR, PG TBL PG INCLUSIVE 
s}06COS1 ove 7 OF7 3 ASHL  #=-2,R1,R1 Rien PAGES IN TRANSFER LOCKED 
2 OD OOFC 298 PUSHL  R2 [SAVE VIRTUAL ADDRESS OF BE FAULTED 
0120 30 Fr 99 BSBW  MMGSUNLOCK1 i UNLOCK EVERYTHING THAT WAS LOCKED 
0 ds 01 0 CLRL ~—_ RO ?RETU URN STATUS INDICATING 
pbc 11 3 } BRB IOLOCKEXIT :PAGE FAULT AND TRY AGAIN 
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IOLOCKPAG = LOCK INDIVIDUAL PAGE FOR I/O 5- SYS. SRCJIOLOCK.MAR; 1 vO« 
MMGSIOLOCKPAG:: 
-ENABL LSB 
BICL3 #*C<PTESM_ VALID -;CHECK VALID BIT 
| PTESM_TYP1 ! PTESM_TYPO -;GET PTE TYPE BITS 
i PTESM"PGFLVB>,(R3)>7RO ;AND PFN/PAGE FILE VBN BITS TO RO 
BGEQ NOTVALID ‘BRANCH IF PAGE NOT VALID 
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St et et et et et et et a a ek kd 
CONAN EW O OD NAME WN ( OOONOU! 


PEAT BE 
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: PAGE IS VALID, LOCK IT FOR 1/0 


EXTZV #PTESV_PFN,#PTESS PFN,RO,RO ;RO=PFN 
CMPL RD WI PNGSEL _RAKPFA :DOES THIS PAGE ao DATABASE? 


=O OONAUE WN O OONAUS 
ez 


BGTR ‘NO, SKIP LOCK FOR 

LOCKPAGE : 
INCW  a@W*PFNSAW_REFCNTCRO] 1/0 REFERENCE 
BLBC ~—«—R7, 108 ‘BRANCH IF NOT MODIFYING PAGE 
BISB #PTESM_MODIFYa-24,3(R3) :SET MODIFY BIT 

10$:  MOVZWL #SS$_NORMAL,RO SRETURN SUCCESS INDICATION 
.DSABL LSB 

+ PAGE NOT VALID 

NOTVALID: 
BEQL § DEMANDZER ;BRANCH IF DEMAND ZERO PAGE 


0 : 

YPO ,#<PTESV_TYP1+1-PTESV_TYPO>,RO,R1 
D OF BITS BETWEEN TYPO AND TrP1 

S_ WERE ZERO 

YP1 BIT SET 


EXTV #PTESV 


We 1 


L 
T 
T 


BNEQ NOTRANSITION ;BRANCH IF NOT TRANSITION PAGE 


PAGE IS _IN TRANSITION, RO = PFN 
IN GETTING WORKING SET ENTRY, WE MUST BE CAREFUL THE PAGE IS NOT DISCARDED 
BY THE DEAD PAGE TABLE SCAN 


ASSUME PFNSC_ACTIVE EQ 7 “ALL BITS SET 
BICB3 a@W*PFASAB_STATECRO],#PFNSC_ACTIVE,R1 ;1S PAGE ACTIVE? 
BEQL ACTIV sBRANCH If IT IS 

PUSHR #*M<RO,R2,R3> [SAVE SVAPTE, VA, PFN 

BSBW MMGSFREWSLE [GET A WORKING SET LIST ENTRY 
BLBC “BRANCH IF MUST WAIT FOR ONE 
BITL ep tESM_VALID ! PTESM_TYPO | PTESM_TYP1,a8(SP) 


POPR AM<RO> ;RECOVER PFN 
EXTZV #PFNSV, LOC ,#PFNSS_LOC , aM PFNSAB_STATELRO].R2 ;LOCATION 
PFNLIST,=- ZFREE PAGE LSIT 
PFNLIST.- ‘MODIFIED PAGE LIST 
$.- ‘BAD PAG 
RELEASEPEND,- i PAGE WAITING TO BE RELEASED BY 1/0 DONE 
é WRITE INPROG- ‘WRITE IN PROGRESS 
208 MOVQ = (SP)+,R2 ;RESTORE VA AND SVAPTE 


BRB MUSTFAULT SRETURN "MUST FAULT’’ STATUS 


— 1 
1OLOCK = LOCK AND UNLOCK PAGES FOR 1/0 16=SEP=1984 :38 VAX/VMS Macro V04-00 Page 9 
04-660 IOLOCKPAG = LOCK INDIVIDUAL PAGE FOR 1/0 g-3eFe 1982 88: 13 # YOYS SRCITOLOCK MARS wie 
01 BA 1g 419 30$: POPR #*M<RO> :CLEAN OFF SAVED PFN 
F711 1 4 E BRB 20$ :AND JOIN MUST FAULT CODE 
O17 4 g : PAGE IS ON FREE OR MODIFIED PAGE LIST, R2 = LIST ID 
175 45% PENLIST: 
FE8BB' 30 0172 425 MMGSREMPFN ;REMOVE PAGE FROM SPECIFIED LIST 
175 & : WRITEINPROG: 
175 427 RELEASEPEND: 
52 : 7D 0175 428 MOV R2 ;RESTORE VA AND SVAPTE 
FE8S* 30 0178 429 BSBu nRGSRAK WSLE iMAKE NEW WORKING SET LIST ENTRY 
52 BE 7D 017B 430 MOVQ SP) RESTORE VA AND SVAPT 
17E 431 ASSUME PENSV. “DELCON EQ PFNSV _LOtsBENSS “LOC+1 O OELCON 1S 2ND BIT TO LEFT OF 
O17E 4 é :BIT INBETWEEN I$ FOR LOC EXPANSION 
05 00 o7 F0 ore 4 INSV  #PFNSC_ACTIVE,#PFNSV_LOC.#PFNSS_LOC+2,- ;SET PAGE ACTIVE 
0000'DF40 018¢ 4 , Looe @W*PFNSAB_STATECRO] ~  :AND CLEAR DELCON 
9163 1F €3 O16 436 " BBCS #PTESY VALID, (R3), LOCKPAGE :SET VALID BIT 
BF 018A 4 f BRB PAGE FINISH UP BY LOCKING THE PAGE 
Hh res : RESTORE VA AND SVAPTE AND FALL THROUGH TO MUSTFAULT1 
018C 441 MUSTFAULT3: 
OC BA 018¢ age POPR #*M<R2,R3> :RESTORE VA AND SVAPTE 
O18E Aad + POP 1 LONG WORD AND RETURN "MUST FAULT’ INDICATION 
018E 446 MUSTFAULTI: 
BE D5 018E 447 TSTL  (SP)+ :CLEAN UP STACK 
0190 449 : RETURN "MUST FAULT’ INDICATION 
0190 450: 
0190 451 MUSTFAULT: 
50 D4 0190 43¢ CLRL = RO yINDICATE FAILURE 
ht ae 3 
0193 439 : MUST BE SECTION, PAGE FILE, OR GLOBAL PAGE 
0193 4e9 NOTRANSITION: 
FBG 0195 438 BGTR MUSTFAULT :FAULT GLOBALS FOR NOW 
0195 460 ; PAGE IS A SECTION OR PAGE FILE PAGE. IF TOTALLY OVERWRITING IT 
195 461 ; THEN SUPPLY A ZEROED PAGE INSTEAD OF FAULTING IT IN. 
195 46¢ : (ASSUMING THIS OPTIMIZATION IS NOT INHIBITED BY BIT 2 IN R7 BEING SET) 
57 03 91 0195 464° CMPB STOTALLY OVERWRITING THE PAGE? 
F612 0198 465 BNEQ oe tT at [BRANCH IF NOT, NEED TO READ IT 
194 467 t DEMAND ZERO THIS PAGE, RO IS BACKING STORE ADDRESS. 
19A 469 HEMANDZERO: 
50 50 17 00 EF O19A 470 EXTZ2V #PFNSV_BAK,#PFNSS_BAK,RO, RO | CALCULATE BACKING STORE ADR 
58 D4 O19F 471 CLRL = RB NDICATE NOT CR F 
op 50 16 €1 O1A1 Are BBC #PTESV_TYPO,RO,20$ Phy etat IF PAGING FILE 
050 11 €4 1A3 473 an BBSC #PTESV—DZRO.RO. 10$ *CLEAR DZRO BIT IF iT WAS SET 
08 50 10 €1 O1A9 475 "BBC #PTESV_CRF,RO, 30S ;BRANCH IF NOT CRF SECTION 
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te 
ND UNLOCK PAGES FOR 1/0 i 
= LOCK INDIVIDUAL PAGE FOR 1/0 5-S 


EP19b6 OSiusii? LevsesmciioLocsmans? = 8", v0 


CVTWL RO, RB :GET SECTION TABLE INDEX | 

CLRL LL PAGING FILE FOR CRF SECTION 
208: INSV  PHDSB_PAGFIL(RS) ,#PFNSV GFL APENSS PGFLX,RO PAGE FILE INDEX 

$: PUSHL R SAVE BACKING STORE ADDRE 

MOVva SSAVE SVAPTE AND VA 

BSBW AaGSERE USLE 'GET A WORKING SET LIST ENTRY 

MOVQ SRESTORE VA AND SVAPTE 

BLBC MUSTFAULT3 :BRANCH IF NEED TO WAIT FOR WSLE 

BSBW RNGSININEWPFA SALLOCATE AND INIT A PFN 

MOVa (sp P)+ SRESTORE VA AND SVAPTE 

BBS #31 RO AUSTFAULTI ‘BRANCH IF MUST WAIT FOR ONE 

MOVL i a1 iSETION. TABLE INDEX 

BEQL 4 :NOT CRF 

PUSHL R2 SSAVE V 

BSBy MMGSDECSECREF eas ot PTE POINTING TO SECTION 
35$: INCW  a@W*PFNSAW_REFCNTCRO “2ND REFERENCE FOR 1/0 LOCK DOWN 

BISB #PFNSC_ACTIVE,aW*PFNS _oFATEERO sPAGE IS ACTIVE 


40$: BBC #8,R7,45$ ;BRANCH IF 


50$: MOVCS #0, (R2) 


MOVL. (SP)+ CSOpr PFNSAL_BAKCRO ise! BACKING STORE ADDRESS 
BICL3 #*C<PTESM PROT ? PTESM_O . T PROT AND OWNER FROM PTE 
BBCS #PTES$V_VACID,R1,40$ oe set THE VAL iD T 

NORMAL 1/0 OPERATION 
BISL3 RO.R1,(R3) :STORE THE VALID SHELL 
MOVL #3,RO iSET ALTERNATE BucEss | 


#PTESV_MODIFY,R1,46$ SET THE MODIFY Hy 
BISL3 RO,R1,TR3) AND STORE IT WITH THE PFN 


AT THIS POINT DROP IPL TO ASTDEL SO SOMEONE ELSE MAY RUN IF NECESSARY 
THE PROCESS meee HAS BEEN NAILED DOWN BY THE 1/0 REF COUNT ON THIS 


; PAGE SO IT CAN'T SLIP AWAY. 


PUSHR women? R3,R4,R5> ; PRESERVE THESE FROM MOVCS 
BICW mBY TE ,R2 [SHUT OFF PAGE TYPE BITS IN VA 
CMPL £35 [IF NOT PROCESS PAGE 

50$ [THEN DON'T LOWE 


BNEQ R IPL 
SETIPL #IPLS_ASTDEL [MAKE PROCESS SCHEDULABLE AGAIN 
ty #*x200, (R2) i ZERO THE P 

POPR #*M<R2,R3,R4,R5> :RESTORE SAVED REGISTERS 

SETIPL #IPL$_ SYNCH TBACK TO CALLED IPL 

MOVZWL #588 *RORMAL, RO [PAGE SUCCESSFULLY LOCKED FOR 1/0 
RSB SRETURN TO CALLER 


of PAGES FOR 1/0 ee a ib 4 00: 13:78 corte: Macro v04-00 Page 
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ee ~SBTTL UNLOCK PAGES AT COMPLETION OF 1/0 
; FUNCTIONAL DESCRIPTION: 

UNLOCK PAGES THAT WERE PREVIOUSLY LOCKED FOR DIRECT 1/0 
CALLING SEQUENCE: 

BSBW MMGSUNLOCK 


INPUT PARAMETERS: 


OOCOOCOCOCOCOCOCOCOOO Kx 


0 
AT 
F 3s 
: 
358 
E 4; 
; 5 3 
E 5 ; 
E § : 
f 23: 
E ; 
E : ; R1 = PAGE COUNT 
; ¢ ; R3 = STARTING SVAPTE 
022E : t IMPLICIT INPUTS: 
8 ; 23 3 NONE 
022 3 9 : OUTPUT PARAMETERS: 
O55E Ba) | —_ 
022£ 248 : IMPLICIT OUTPUTS: 
8 : re ; NONE 
022€ ate : COMPLETION CODES: 
O55—  8e9 wate: 
O22— 548 ; SIDE EFFECTS: 
8 se $3 : NONE 
0 ze 51 i-- 
3 .ENABL LSB 
, Se 
; 022 555 : RO = LAST SVAPTE INCLUSIVE FOR PAGE TABLE UNLOCKING (MMGSUNLOCK1 ONLY) 
-.) 36 > R1 = COUNT OF DATA PAGES TO U 
0 E Bf ; R3 = STARTING S¥APTE FOR UNLOCKING DATA PAGES AND PAGE TABLES 
0 e 359 MMGSUNLOCK1: 
— 560 SAVIPL ZCALLER'S IPL TO STACK 
0B 1 0 1 61 3$ : JOIN COMMON CODE 
0 ; 86 MMGSUNLOCK: : 
64 DSBINT #IPL$ SYNCH sSAVE IPL AND RAISE TO SYNCH 
50 FC A341_—OD~E 9 65 MOVAL  =4(R33CR1J,RO SSVAPTE OF LAST PAGE OF XFER INCLUSIVE 
E $6 : O(SP) = CALLED IPL, CURRENTLY AT SYNCH 
E 68 : RO = LAST SVAPTE INCLUSIVE 
E 6 : R1 = COUNT OF PAGE 
E 20 : R3 = FIRST SVAPTE 
OA 2 S$ PUSHR #*M<R1,R3> ;PUSH START SVAPTE, PAGE COUNT 
50 OFC BF A 4 7 BISW2 #*X1FC-RO [ROUND UP TO END Of PAGE TABLE PAGE 
FDB8' 3 4 74 6$: BSBW SDECPTREF [UNDO PAGE TABLE REFERENCE 
53 9300 ¢ DE 0248 575 MOVAL *X200(R3),R3 [GET NEXT PAGE TABLE PAGE ADDRESS 
Di 0240 576 CMPL ROR [PAST LAST PAGE OF XFER? 


1OLOCK - LOC UNLOCK PAGES FOR I/ 16-SEP-1984 00:19:38 VAX/VMS Macro V04-00 10 
y0%-500 UNLOC ES AT COMPLETION OF I/0 ety 7 80:18:78 Heys. SRCJIOLOCK.MAR; 1 vO 
BGEQU 6$ ;BRANCH ON NO 
INCL (SP) ; INCREMENT PAGE COUNT, GO CHECK IF 
BRB 2 [NO PAGES TO UNLOCK 
~ ro pears ‘pare hea eT 
BSBW §IOCSPTETOPF ner R3<PFN> = PFN 
20$:  EXTZV #PTESV PEN APTESS PFN,R3.RO ;:PEN TO RO 
CHPL RO ,W*AAGSGL_ MAXPFR does Th 1S PAGE HAVE PFN DATABASE? 
DECREF GTR=30$ NE LESS REASON FOR THIS PAGE'S RESIDENCY 
7 pba! BSBW-MNGERELPFN RELEASE THE. PAGE 
51 58: MOVQ = (SP) +, R1 i RESTORE PAGE COUNT AND STARTING SVAPTE 
D4 0s: SOBGTR R1,10$ SONCE AROUND FOR EACH PAGE 
ENBINT SRESTORE SAVED IPL 


; PAGE REFERENCE OR SHARE COUNT WENT NEGATIVE, FATAL ERROR 
CALLING SEQUENCE: 


“ 
oO 
ou 
Ow 
Oo 
Oo 
o- 
wr 
nn 
=] 
MO@wW —WNOroanvc™ 
<n | /§ NOOWMWNVIOMUw 
oe FNUuN SOM OO 
uw wmoog £-—"oOOo°o-oOmM rr 
CODOOCOCCOCOOOCCOCOOCOCOOOOOOOOOOOCOOCOOO AX 


NAME WN (OOO NAUE WH OODNOULS WN O0ON +O 


CODOOCCOCCOC OOOO OO OOO OWDWOWDODMOMOMDo VIS Yr 


2.00 09 0D 09 0D 09 00 09 09 09 09 09 09 CO CD09 SII IOP OOOUIUIUIUIUIUIVT OU 


DD DPDP_ PPD DEPT 


BSBW MMGSREF CNTNEG ;RO = PAGE FRAME NUMBER 
BSBW MMGSSHRCNTNEG ;RO = PAGE FRAME NUMBER 
AMGSREF CNTNEG: : 
BUG_ CHECK REF CNTNEG, FATAL ;PFN REFERENCE COUNT NEGATIVE 
MMGSSHRCNTNEG: : 
; BUG_CHECK SHRCNTNEG,FATAL PFN SHARE COUNT NEGATIVE 
~ END 


IOLOCK 

Symbol table 
ACTIVE 
BUGS_REF CNTNEG 
BUGS SHRCNTNEG 
CTLSGL_PHD 
DEMANDZERO 


P 
PTESM~PGFLVB 
PTESM_PROT 
PTESM~TYPO 
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L 
“NORMA 
SGL_BALBASE 
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VA$S_BYTE 
VASV-BYTE 
WRITEINPROG 
WSLSC_SYSTEM 
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1OLOCK 
Psect synopsis 


EP-1984 Os48:17 


H Psect synopsis ! 


wes er ec eos e eee me + 


Panives Macro V04-00 
SYS.SRCJIOLOCK.MAR;1 


PSECT nome Allocation PSECT No. Attributes 

- ABS sit 44 ( 8.3 0 ¢( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 444 9 ( oF 1¢( 1.) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE 

SMMGCOD O00028E ( 654.) 2¢ 2.) NOPIC  USR CON REL LCL NOSHR- EXE RD WRT NOVEC BYTE 
Peete emer ene mone ewan ee oa} 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization $3 60:00:00 .08 00:00: 1-63 

Syed 13 SRRSHE Ss HE Oe 

Symbol table sort : 0; 01:48 00: 0:04.93 

Pass 2 11 B38 +96 «9 0:00:10.11 

Symbol table output 11 00:00:00.07 00:00:00.16 

Psect synopsis output 2 Bn 8 328 Be 00:00:00.02 

Cross-reference output 3 00: Sef Ses Sa 9 

Assembler run totals 58 00:00:13.49 00:00:52.04 


The working set Limit was 1350 pages. 

53364 bytes (105 pages) of virtual memory were used to buffer the intermediate code. 

There wore 50 pages of symbol table space allocated to hold 919 non-local and 31 local symbols. 
7 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 


+ 
H Macro Library statistics : 


Macros defined 


Macro Library name 


.$255$DUA28:CSYS.OBJJLIB.MLB;1 14 
$255$DUA28:CSYSLIBJSTARLET.MLB;2 6 
TOTALS (all Libraries) 20 


1044 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: 1OLOCK/OBJ=OBJ$: IOLOCK MSRC$: IJOLOCK/UPDATE=(ENH$: IOLOCK) +EXECML$/LIB 
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